home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / prog / mod2tutb.zip / SIMPLOUT.MOD < prev    next >
Text File  |  1989-01-18  |  820b  |  36 lines
  1.                                          (* Chapter 8 - Program 1 *)
  2. MODULE SimplOut;
  3.  
  4. FROM InOut IMPORT WriteString, WriteLn;         (* unqualified *)
  5. IMPORT InOut;         (* This imports every procedure in InOut *)
  6. IMPORT Terminal;   (* This imports every procedure in Terminal *)
  7.  
  8. VAR Index : CARDINAL;
  9.  
  10. BEGIN
  11.    WriteString("This is from InOut, ");
  12.    InOut.WriteString("and so is this.");
  13.    Terminal.WriteLn;
  14.  
  15.    Terminal.WriteString("This is from Terminal, ");
  16.    Terminal.WriteString('and so is this.');
  17.    WriteLn;
  18.  
  19.    FOR Index := 1 TO 10 DO
  20.       InOut.WriteCard(Index,5);
  21.    END;
  22.    InOut.WriteLn;
  23. END SimplOut.
  24.  
  25.  
  26.  
  27.  
  28. (* Result of execution
  29.  
  30. This is from InOut, and so is this.
  31. This is from Terminal, and so is this.
  32.     1    2    3    4    5    6    7    8    9   10
  33.  
  34. *)
  35.  
  36.